' BASIC Anywhere Machine program by Charlie Veniot
' mod of blue4.bas (found in https://qb45.org/download.php?id=1076)
' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2023.01.14.19.01]) on 2023.01.23 at 23.02
1 SCREEN 13
2 M$ =  _
"19171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031191718192021222324252627282930311917181920212223242526272829303119171819202122232425262728293031" _
3 DO
  for i = 17 to 31
    ' the "paintbrush" has 15 vertical lines; alter the "bgr" values in various ways to get different results
    k = 25 + abs(i-21)*15
    palette i, _bgr(k+75,k-20,k+50)
  next i
  4 FOR A! = 0 TO 25 STEP .01
    5 FOR Y% = 0 TO 15
      6 FOR X% = 0 TO 15
        this_c = VAL(MID$(M$, ((Y% * 2) * 16) + (X% * 2) + 1, 2))
        7 PSET (160 + COS(A!) * 50 + X%, 100 + SIN(A!) * 50 + Y%), this_c
    8 NEXT X%, Y%
    _delay 0.01
  next A!
9 LOOP